home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / tpascal / bpvbx / tpwpush.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-22  |  3.0 KB  |  103 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Visual Basic VBX in Borland Pascal"
  4.    ClientHeight    =   1605
  5.    ClientLeft      =   1455
  6.    ClientTop       =   2160
  7.    ClientWidth     =   6105
  8.    Height          =   2010
  9.    Left            =   1395
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1605
  12.    ScaleWidth      =   6105
  13.    Top             =   1815
  14.    Width           =   6225
  15.    Begin TextBox Text2 
  16.       Height          =   375
  17.       Left            =   3360
  18.       TabIndex        =   7
  19.       Text            =   "Text2"
  20.       Top             =   960
  21.       Width           =   1335
  22.    End
  23.    Begin PasPushButton cmdBtn 
  24.       AutoBeep        =   0   'False
  25.       Caption         =   "Pascal #4"
  26.       Height          =   255
  27.       Index           =   3
  28.       Left            =   4800
  29.       TabIndex        =   6
  30.       Top             =   1200
  31.       Width           =   1095
  32.    End
  33.    Begin PasPushButton cmdBtn 
  34.       AutoBeep        =   0   'False
  35.       Caption         =   "Pascal #3"
  36.       Height          =   255
  37.       Index           =   2
  38.       Left            =   4800
  39.       TabIndex        =   5
  40.       Top             =   840
  41.       Width           =   1095
  42.    End
  43.    Begin PasPushButton cmdBtn 
  44.       AutoBeep        =   0   'False
  45.       Caption         =   "Pascal #2"
  46.       Height          =   255
  47.       Index           =   1
  48.       Left            =   4800
  49.       TabIndex        =   4
  50.       Top             =   480
  51.       Width           =   1095
  52.    End
  53.    Begin PasPushButton cmdBtn 
  54.       AutoBeep        =   0   'False
  55.       Caption         =   "Pascal #1"
  56.       Height          =   255
  57.       Index           =   0
  58.       Left            =   4800
  59.       TabIndex        =   3
  60.       Top             =   120
  61.       Width           =   1095
  62.    End
  63.    Begin PasPushButton PasPush2 
  64.       AutoBeep        =   0   'False
  65.       Caption         =   "E&xit"
  66.       Height          =   375
  67.       Left            =   720
  68.       TabIndex        =   2
  69.       Top             =   960
  70.       Width           =   1575
  71.    End
  72.    Begin PasPushButton PasPush1 
  73.       AutoBeep        =   0   'False
  74.       Caption         =   "&Test me"
  75.       Height          =   375
  76.       Left            =   720
  77.       TabIndex        =   1
  78.       Top             =   120
  79.       Width           =   1575
  80.    End
  81.    Begin TextBox Text1 
  82.       Height          =   375
  83.       Left            =   2400
  84.       TabIndex        =   0
  85.       Text            =   "Text1"
  86.       Top             =   120
  87.       Width           =   1575
  88.    End
  89. Option Explicit
  90. Sub cmdBtn_Click (Index As Integer, ButtonCaption As String)
  91.     Text1 = cmdBtn(Index).Caption
  92.     ' the next line does the same as the first
  93.     ' except it uses the passed parameter
  94.     Text2 = ButtonCaption
  95. End Sub
  96. Sub PasPush1_Click (ButtonCaption As String)
  97.     Text1 = PasPush1.Caption
  98. End Sub
  99. Sub PasPush2_Click (ButtonCaption As String)
  100.     Unload Me
  101.     End
  102. End Sub
  103.